home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / misc / VMM_src.lha / VMM / install / InstallVMM
Encoding:
Text File  |  1996-07-24  |  29.0 KB  |  728 lines
  1. ; VMM Installer script by Martin Apel
  2. ; Installation script for VMM 3.3a
  3.  
  4. (set @app-name "VMM")
  5.  
  6. ; English is the default language 
  7.     (set #Welcome
  8.      (cat "        Welcome to the VMM installation\n\n"
  9.           "       Virtual Memory for Amigas with MMU\n\n"
  10.           "        Copyright 1993-95 by Martin Apel\n\n"
  11.           "Novice   installs everything except the developer files.\n"
  12.           "Advanced installs everything without confirmation.\n"
  13.           "Expert   installs everything with confirmation of all actions.\n")
  14.      )
  15.     (set #WhatInstall "What do you want to install ?")
  16.     (set #VMM "VMM")
  17.     (set #Icons "Icons")
  18.     (set #Docs "Documents")
  19.     (set #Devel "Developer files")
  20.     (set #Tools "Tools")
  21.     (set #Rexx "Rexx scripts")
  22.     (set #DefHelp "\n\nIf you need more help, please refer to \"VMM.guide\"\n\n")
  23.     (set #Dest "Select the directory where you want to put the VMM executable (and tools).")
  24.     (set #DestHelp (cat "This should be a directory where you can easily access VMM "
  25.                      "via Workbench or CLI/Shell."))
  26.     (set #AlreadyInstalled1 "\nYou have VMM ")
  27.     (set #AlreadyInstalled2 (cat " already installed"
  28.                                  ".\nDo you wish to overwrite it with VMM "))
  29.     (set #AlreadyInstalled3 "?\n")
  30.     (set #Yes "Yes")
  31.     (set #No  "No")
  32.     (set #InternalError "Internal error in Installer script")
  33.     (set #Page4KUsable "A pagesize of 4K is usable on your system")
  34.     (set #Page8KUsable "A pagesize of 8K is usable on your system")
  35.     (set #PageBoth "Either pages of 4K or 8K are usable on your system")
  36.     (set #SelectPagesize "\nPlease select the pagesize:\n\n")
  37.     (set #Page4K "4K pagesize")
  38.     (set #Page8K "8K pagesize")
  39.     (set #SelectGUI "Choose the VMM user interface library to use")
  40.     (set #CopyingVMM "\nCopying VMM to %s.")
  41.     (set #CopyingCat "\nCopying VMM.catalog to LOCALE:catalogs/english.")
  42.     (set #CopyingHandler "\nCopying VMM-Handler to l:.")
  43.     (set #CopyingHandlerCat "\nCopying VMM-Handler.catalog to LOCALE:catalogs/english.")
  44.     (set #OverwritePrefs "\nYou have a preferences file already installed.\nDo you wish to overwrite it ?\n\n")
  45.     (set #OverwritePrefsHelp "If you don't overwrite the prefs file it will be converted in the next step")
  46.     (set #CopyingPrefs1 "\nCopying VMM.prefs to env:\n")
  47.     (set #CopyingPrefs2 "\nCopying VMM.prefs to envarc:\n")
  48.     (set #ConvertPrefs "The preferences file format has changed since V2.1\nDo you want to have it converted?")
  49.     (set #DocDir "Select the directory where you want to put\nthe documents and guides.")
  50.     (set #DocDirHelp "This should be the directory where you normally put your guides.\n\n")
  51.     (set #CopyingDocs "\nCopying docs...")
  52.     (set #CopyingGuide "\nCopying VMM.guide to ")
  53.     (set #CopyingLibrary "\nCopying VMM.library to libs:.")
  54.     (set #SelectFDDir "Select the directory where you want to put the fd file.")
  55.     (set #SelectIncludeDir "Select the directory where you want to put the include file.")
  56.     (set #SelectLibDir "Select the directory where you want to put the lib file.")
  57.     (set #CopyingFD "\nCopying VMM_lib.fd to ")
  58.     (set #CopyingInclude "\nCopying VMM_stat.h to ")
  59.     (set #CopyingLib "\nCopying VMM_lib.lib to ")
  60.     (set #CopyingTools "\nCopying tools to ")
  61.     (set #CopyingRexx "\nCopying ARexx scripts to REXX:")
  62.     (set CopyCatalogs 0)
  63.  
  64.     (set DocSrcDir "/doc/english")
  65.  
  66. (if (= @language "deutsch") ; then
  67.   (
  68.     (set #Welcome
  69.      (cat 
  70. "        Willkommen zur Installation von VMM"
  71.          "       Virtueller Speicher für Amigas mit MMU\n\n"
  72.          "        Copyright 1993-95 Martin Apel\n\n"
  73.          "Novice   installiert alles außer den Entwicklerdateien.\n"
  74.          "Advanced installiert alles ohne Bestätigung.\n"
  75.          "Expert   installiert alles mit Bestätigung jeder Aktion.\n")
  76.      )
  77.     (set #WhatInstall "Was wollen Sie installieren ?")
  78.     (set #VMM "VMM")
  79.     (set #Icons "Icons")
  80.     (set #Docs "Dokumente")
  81.     (set #Devel "Entwicklerdateien")
  82.     (set #Tools "Zusatzprogramme")
  83.     (set #Rexx "Rexx Skripte")
  84.     (set #DefHelp "\n\nWenn Sie mehr Hilfe benötigen, sehen Sie in \"VMM.guide\"\n\n")
  85.     (set #Dest "Wählen Sie das Verzeichnis für VMM (und Zusatzprogramme) aus.")
  86.     (set #DestHelp (cat "Dies sollte ein Verzeichnis sein, in dem Sie VMM einfach von "
  87.                      "der Workbench oder der Shell aus starten können."))
  88.     (set #AlreadyInstalled1 "\nSie haben VMM ")
  89.     (set #AlreadyInstalled2 ".\nWollen Sie es mit VMM ")
  90.     (set #AlreadyInstalled3 " überschreiben ?\n")
  91.  
  92.     (set #Yes "Ja")
  93.     (set #No  "Nein")
  94.     (set #InternalError "Interner Fehler im Installer script")
  95.     (set #Page4KUsable "Eine Seitengröße von 4K ist auf Ihrem System möglich")
  96.     (set #Page8KUsable "Eine Seitengröße von 8K ist auf Ihrem System möglich")
  97.     (set #PageBoth "Sowohl 4K als auch 8K-Seiten sind auf Ihrem System möglich")
  98.     (set #SelectPagesize "\nWählen Sie die Seitengröße:\n\n")
  99.     (set #Page4K "4K Seiten")
  100.     (set #Page8K "8K Seiten")
  101.     (set #SelectGUI "Wählen Sie die Bibliothek für das VMM-Benutzerinterface")
  102.     (set #CopyingVMM "\nKopiere VMM nach %s.")
  103.     (set #CopyingCat "\nKopiere VMM.catalog nach LOCALE:catalogs/deutsch.")
  104.     (set #CopyingHandler "\nKopiere VMM-Handler nach L:.")
  105.     (set #CopyingHandlerCat "\nKopiere VMM-Handler.catalog nach LOCALE:catalogs/deutsch.")
  106.     (set #OverwritePrefs "\nSie haben schon eine Einstellungsdatei für VMM installiert.\nWollen Sie sie überschreiben ?\n\n")
  107.     (set #OverwritePrefsHelp "Wenn Sie die Einstellungsdatei nicht überschreiben lassen, so können Sie sie im nächsten Schritt konvertieren lassen")
  108.     (set #CopyingPrefs1 "\nKopiere VMM.prefs nach env:\n")
  109.     (set #CopyingPrefs2 "\nKopiere VMM.prefs nach envarc:\n")
  110.     (set #ConvertPrefs "Das Format der Einstellungsdatei hat sich seit V2.1 geändert\nWollen Sie, daß es konvertiert wird ?")
  111.     (set #DocDir "Wählen Sie das Verzeichnis für die Dokumentation aus\n.")
  112.     (set #DocDirHelp "Dies sollte das Verzeichnis sein, in dem Sie normalerweise Ihre Dokumentation aufbewahren.\n\n")
  113.     (set #CopyingDocs "\nKopiere Dokumentation")
  114.     (set #CopyingGuide "\nKopiere VMM.guide nach ")
  115.     (set #CopyingLibrary "\nKopiere VMM.library nach LIBS:.")
  116.     (set #SelectFDDir "Wählen Sie das Verzeichnis für die FD-Datei aus.")
  117.     (set #SelectIncludeDir "Wählen Sie das Verzeichnis für die Include-Datei aus.")
  118.     (set #SelectLibDir "Wählen Sie das Verzeichnis für die Lib-Datei aus.")
  119.     (set #CopyingFD "\nKopiere VMM_lib.fd nach ")
  120.     (set #CopyingInclude "\nKopiere VMM_stat.h nach ")
  121.     (set #CopyingLib "\nKopiere VMM_lib.lib nach ")
  122.     (set #CopyingTools "\nKopiere Zusatzprogramme nach")
  123.     (set #CopyingRexx "\nKopiere ARexx Skripte nach REXX:")
  124.  
  125.     (set DocSrcDir "/doc/deutsch")
  126.     (set CopyCatalogs 1)
  127.   )
  128. )
  129.  
  130. (if (= @language "dansk") ; then
  131.   (
  132.     (set #Welcome
  133.      (cat "        Velkommen til VMM installationen\n\n"
  134.          "       Virtuel Hukommelse for Amigaer med MMU\n\n"
  135.          "        Copyright 1993-95 af Martin Apel\n\n"
  136.          "Novice   installerer alt pånær udviklerfilerne.\n"
  137.          "Advanced installerer alt uden bekræftelse.\n"
  138.          "Expert   installerer alt med bekræftelse af alle\n"
  139.          "         handlinger.\n")
  140.      )
  141.     (set #WhatInstall "Hvad ønsker du at installere ?")
  142.     (set #VMM "VMM")
  143.     (set #Icons "Ikoner")
  144.     (set #Docs "Dokumenter")
  145.     (set #Devel "Udviklerfiler")
  146.     (set #Tools "Værktøjer")
  147.     (set #Rexx "Rexx programmer")
  148.     (set #DefHelp "\n\nDu kan finde mere hjælp i \"VMM.guide\"\n\n")
  149.     (set #Dest "Vælg det katalog som du ønsker at installere VMM programfil og værktøjer i.")
  150.     (set #DestHelp (cat "Dette bør være et katalog som er nemt tilgængeligt enten"
  151.                      "fra Workbench eller CLI/Shell."))
  152.     (set #AlreadyInstalled1 "\nDu har allerede VMM ")
  153.     (set #AlreadyInstalled2 " installeret.\nØnsker du at overskrive den med VMM ")
  154.     (set #AlreadyInstalled3 " ?\n")
  155.  
  156.     (set #Yes "Ja")
  157.     (set #No  "Nej")
  158.     (set #InternalError "Intern fejl i Installer script")
  159.     (set #Page4KUsable "En sidestørrelse på 4K er brugbart på dit system")
  160.     (set #Page8KUsable "En sidestørrelse på 8K er brugbart på dit system")
  161.     (set #PageBoth "Sidestørrelser på enten 4K eller 8K er brugbare på dit system")
  162.     (set #SelectPagesize "\nVælg venligst sidestørrelsen:\n\n")
  163.     (set #Page4K "4K sidestørrelse")
  164.     (set #Page8K "8K sidestørrelse")
  165.     (set #SelectGUI "Choose the VMM user interface library to use")
  166.     (set #CopyingVMM "\nKopierer VMM til %s.")
  167.     (set #CopyingCat "\nKopierer VMM.catalog til LOCALE:catalogs/dansk.")
  168.     (set #CopyingHandler "\nKopierer VMM-Handler til l:.")
  169.     (set #CopyingHandlerCat "\nKopierer VMM-Handler.catalog til LOCALE:catalogs/dansk.")
  170.     (set #OverwritePrefs "\nDu har allerede en præferencefil installeret.\nØnsker du at overskrive den ?\n\n")
  171.     (set #OverwritePrefsHelp "Hvis du ikke ønsker at overskrive præferencefilen vil den blive konverteret i det næste trin")
  172.     (set #CopyingPrefs1 "\nKopierer VMM.prefs til ENV:\n")
  173.     (set #CopyingPrefs2 "\nKopierer VMM.prefs til ENVARC:\n")
  174.     (set #ConvertPrefs "Præferencefilformatet er blevet ændret siden V2.1\nØnsker du at få filen konverteret?")
  175.     (set #DocDir "Vælg det katalog hvori du ønsker at installere\ndokumenter og guides.")
  176.     (set #DocDirHelp "Dette bør være det katalog hvori du normalt installerer guides.\n\n")
  177.     (set #CopyingDocs "\nKopierer dokumenter...")
  178.     (set #CopyingGuide "\nKopierer VMM.guide til ")
  179.     (set #CopyingLibrary "\nKopierer VMM.library til libs:.")
  180.     (set #SelectFDDir "Vælg katalog til fd fil.")
  181.     (set #SelectIncludeDir "Vælg katalog til include filer.")
  182.     (set #SelectLibDir "Vælg kataloger til lib fil.")
  183.     (set #CopyingFD "\nKopierer VMM_lib.fd til ")
  184.     (set #CopyingInclude "\nKopierer VMM_stat.h til ")
  185.     (set #CopyingLib "\nKopierer VMM_lib.lib til ")
  186.     (set #CopyingTools "\nKopierer værktøjer til ")
  187.     (set #CopyingRexx "\nKopierer ARexx scripts til REXX:")
  188.     (set CopyCatalogs 1)
  189.   )
  190. )
  191.  
  192. (if (= @language "español") ; then
  193.   (
  194.     (set #Welcome
  195.      (cat "      Bienvenido a la instalación de VMM\n\n"
  196.          "      Memoria Virtual para Amigas con MMU\n\n"
  197.          "        Copyright 1993-95 de Martin Apel\n"
  198.          "        Traducción española de Dimas Caparrós\n"
  199.          "        dimas@maze.mazanet.es ó 2:343/119.76\n\n"
  200.          "Novazto  instala todo escepto los ficheros de desarrolladores.\n"
  201.          "Avanzado instala todo sin confirmación.\n"
  202.          "Experto  instala todo con confirmación para todo.\n")
  203.      )
  204.     (set #WhatInstall "¿Qué quiere instalar?")
  205.     (set #VMM "VMM")
  206.     (set #Icons "Iconoss")
  207.     (set #Docs "Documentos")
  208.     (set #Devel "Fichero de Desarrolladores")
  209.     (set #Tools "Herramientas")
  210.     (set #Rexx "ARexx scripts")
  211.     (set #DefHelp "\n\nSi necesita más ayuda, mire en el manual \"VMM.guide\"\n\n")
  212.     (set #Dest "Seleccione el directorio donde quiere poner el ejecutable de VMM (y las herramientas).")
  213.     (set #DestHelp (cat "Debe ser un directorio donde pueda acceder fácilmente a VMM"
  214.                      "desde el Workbench o el CLI/Shell."))
  215.     (set #AlreadyInstalled1 "\nTiene VMM ")
  216.     (set #AlreadyInstalled2 " ya instalado.\n¿Quiere borrarlo por VMM ")
  217.     (set #AlreadyInstalled3 " ?\n")
  218.  
  219.     (set #Yes "Si")
  220.     (set #No  "No")
  221.     (set #InternalError "Error interno en el Script de instalación")
  222.     (set #Page4KUsable "Un tamaño de página de 4K se puede usar en su sistema")
  223.     (set #Page8KUsable "Un tamaño de página de 8K se puede usar en su sistema")
  224.     (set #PageBoth "Se puede usar un tamaño de página de 4K u 8K en su sistema")
  225.     (set #SelectPagesize "\nElija un tamaño de página:\n\n")
  226.     (set #Page4K "4K página")
  227.     (set #Page8K "8K página")
  228.     (set #SelectGUI "Choose the VMM user interface library to use")
  229.     (set #CopyingVMM "\nCopiando VMM a %s.")
  230.     (set #CopyingCat "\nCopiando VMM.catalog a LOCALE:catalogs/español.")
  231.     (set #CopyingHandler "\nCopiando VMM-Handler a l:.")
  232.     (set #CopyingHandlerCat "\nCopiando VMM-Handler.catalog a LOCALE:catalogs/español.")
  233.     (set #OverwritePrefs "\nYa tenia grabadas unas preferencias.\n¿Quiere reescribirlas?\n\n")
  234.     (set #OverwritePrefsHelp "Si no las sobreescribe serán convertidas en el próximo paso.")
  235.     (set #CopyingPrefs1 "\nCopiando VMM.prefs a env:\n")
  236.     (set #CopyingPrefs2 "\nCopiando VMM.prefs a envarc:\n")
  237.     (set #ConvertPrefs "El formato de las preferencias ha cambiado desde la versión V2.1\n¿Quiere convertirlas al nuevo formato?")
  238.     (set #DocDir "Seleccione el directorio donde quiere poner\nlos manuales y las guías.")
  239.     (set #DocDirHelp "Debería ser un directorio donde pone normalmente las guías.\n\n")
  240.     (set #CopyingDocs "\nCopiando manuales...")
  241.     (set #CopyingGuide "\nCopiando VMM.guide a ")
  242.     (set #CopyingLibrary "\nCopiando VMM.library a libs:.")
  243.     (set #SelectFDDir "Elija el directorio donde quiere poner el fichero fd.")
  244.     (set #SelectIncludeDir "Elija el directorio donde quiere poner los 'includes'.")
  245.     (set #SelectLibDir "Elija el directorio donde quiere poner el fichero 'lib'.")
  246.     (set #CopyingFD "\nCopiando VMM_lib.fd a ")
  247.     (set #CopyingInclude "\nCopiando VMM_stat.h a ")
  248.     (set #CopyingLib "\nCopiando VMM_lib.lib a ")
  249.     (set #CopyingTools "\nCopiando herramientas a ")
  250.     (set #CopyingRexx "\nCopiando scripts ARexx to REXX:")
  251.     (set CopyCatalogs 1)
  252.   )
  253. )
  254.  
  255. (if (= @language "svenska") ; then
  256.   (
  257.     (set #Welcome
  258.      (cat "        Välkommen till VMM-installeraren\n\n"
  259.          "       Virtuellt minne för Amigor med MMU\n\n"
  260.          "        Upphovsrätt 1993-95 av Martin Apel\n\n"
  261.          "Nybörjare  installerar allt utom utvecklarfilerna.\n"
  262.          "Avancerad  installerar allt utan konfirmering.\n"
  263.          "Expert     installerar allt med konfirmering av allt.\n")
  264.      )
  265.     (set #WhatInstall "Vad vill du installera?")
  266.     (set #VMM "VMM")
  267.     (set #Icons "Symboler")
  268.     (set #Docs "Dokument")
  269.     (set #Devel "Utvecklarfiler")
  270.     (set #Tools "Verktyg")
  271.     (set #Rexx "Rexx-program")
  272.     (set #DefHelp "\n\nOm du behöver mer hjälp, var god se \"VMM.guide\"\n\n")
  273.     (set #Dest "Välj den låda där du vill placera VMM-programmet (och verktygen).")
  274.     (set #DestHelp (cat "Det här bör vara en låda där du lätt kan komma åt VMM "
  275.                      "via Workbench eller ett skal."))
  276.     (set #AlreadyInstalled1 "\nDu har redan VMM ")
  277.     (set #AlreadyInstalled2 " installerad.\nVill du skriva över den med VMM ")
  278.     (set #AlreadyInstalled3 " ?\n")
  279.     (set #Yes "Ja")
  280.     (set #No  "Nej")
  281.     (set #InternalError "Internt fel i installerar-programmet")
  282.     (set #Page4KUsable "En sidstorlek på 4K går att använda på ditt system")
  283.     (set #Page8KUsable "En sidstorlek på 4K går att använda på ditt system")
  284.     (set #PageBoth "Du kan ha antingen 4K eller 8K som sidstorlek på ditt system")
  285.     (set #SelectPagesize "\nVar god välj sidstorlek:\n\n")
  286.     (set #Page4K "4K")
  287.     (set #Page8K "8K")
  288.     (set #SelectGUI "Var god välj user interface biblioteket")
  289.     (set #CopyingVMM "\nKopierar VMM till %s.")
  290.     (set #CopyingCat "\nKopierar VMM.catalog till Locale:catalogs/svenska.")
  291.     (set #CopyingHandler "\nKopierar VMM-Handler till L:.")
  292.     (set #CopyingHandlerCat "\nKopierar VMM-Handler.catalog till Locale:catalogs/svenska.")
  293.     (set #OverwritePrefs "\nDu har redan en inställningsfil installerad.\nVill du skriva över den?\n\n")
  294.     (set #OverwritePrefsHelp "Om du inte skriver över inställningsfilen så kommer den att konverteras i nästa steg")
  295.     (set #CopyingPrefs1 "\nKopierar VMM.prefs till Env:\n")
  296.     (set #CopyingPrefs2 "\nKopierar VMM.prefs till EnvArc:\n")
  297.     (set #ConvertPrefs "Formatet på inställningsfilen har ändrats sedan V2.1\nVill du konvertera den?")
  298.     (set #DocDir "Välj den låda där du vill placera dokumenten och AmigaGuide-filerna.")
  299.     (set #DocDirHelp "Det här bör vara den låda där du normalt sett placerar dina AmigaGuide-filer.\n\n")
  300.     (set #CopyingDocs "\nKopierar dokumentationen...")
  301.     (set #CopyingGuide "\nKopierar VMM.guide till ")
  302.     (set #CopyingLibrary "\nKopierar VMM.library till Libs:.")
  303.     (set #SelectFDDir "Välj den låda där du vill placera fd-filen.")
  304.     (set #SelectIncludeDir "Välj den låda där du vill placera inkluderingsfilen.")
  305.     (set #SelectLibDir "Välj den låda där du vill placera lib-filen.")
  306.     (set #CopyingFD "\nKopierar VMM_lib.fd till ")
  307.     (set #CopyingInclude "\nKopierar VMM_stat.h till ")
  308.     (set #CopyingLib "\nKopierar VMM_lib.lib till ")
  309.     (set #CopyingTools "\nKopierar verktygen till ")
  310.     (set #CopyingRexx "\nKopierar ARexx-programmen till Rexx:")
  311.     (set CopyCatalogs 1)
  312.   )
  313. )
  314.  
  315.  
  316. (welcome #Welcome)
  317.  
  318. (if (= 0 @user-level) ; then
  319.     (set install_level %000111)
  320. ; else
  321.     (set install_level (askoptions (prompt #WhatInstall)
  322.                                    (help   @askoptions-help)
  323.                                    (choices #VMM #Icons #Docs #Devel #Tools #Rexx)))
  324. )
  325.  
  326. (set def_help #DefHelp)
  327.  
  328. (set my_level @user-level)
  329. (user 2)
  330. (set vmmdest
  331.     ;get destination directory for "VMM"
  332.      (askdir (prompt #Dest)
  333.              (help   #DestHelp def_help
  334.                      @askdir-help)
  335.              (default @default-dest)
  336.              (disk)
  337.      )
  338. )
  339. (user my_level)
  340.  
  341. (set copy_vmm   (BITAND %000001 install_level))
  342. (set copy_icons (BITAND %000010 install_level))
  343. (set copy_docs  (BITAND %000100 install_level))
  344. (set copy_dev   (BITAND %001000 install_level))
  345. (set copy_tools (BITAND %010000 install_level))
  346. (set copy_rexx  (BITAND %100000 install_level))
  347.  
  348. ; Copy VMM files
  349.  
  350. (if copy_vmm
  351.   (
  352.     (set @default-dest vmmdest)
  353.     (set vmmtacked (tackon vmmdest "VMM"))
  354.  
  355.     ; ask, if we want to overwrite the old VMM if it exists
  356.     (set overwrite 1)
  357.     (if (exists "L:VMM-Handler")
  358.       (
  359.         (set old_version (getversion "l:VMM-Handler"))
  360.         (set old_ver (/ old_version 65536))
  361.         (set old_rev (- old_version (* old_ver 65536)))
  362.  
  363.         (set new_version (getversion "/l/VMM-Handler_4K"))
  364.         (set new_ver (/ new_version 65536))
  365.         (set new_rev (- new_version (* new_ver 65536)))
  366.  
  367.         (set overwrite (askbool (prompt #AlreadyInstalled1
  368.                                          old_ver "." old_rev #AlreadyInstalled2
  369.                                          new_ver "." new_rev #AlreadyInstalled3)
  370.                                 (help def_help @askbool-help)
  371.                                 (default 1)
  372.                                 (choices #Yes #No))
  373.  
  374.         )
  375.       )
  376.     )
  377.  
  378.     (if overwrite
  379.         (
  380.            ; detect the pagesize (4K or 8K)
  381.            (set pagesize (run "/tools/ShowPageSize"))
  382.  
  383.            (select pagesize
  384.              (abort #InternalError)
  385.              ((set info_string #Page4KUsable)
  386.               (set default_choice 0))
  387.              ((set info_string #Page8KUsable)
  388.               (set default_choice 1))
  389.              ((set info_string #PageBoth)
  390.               (set default_choice 0))
  391.            )
  392.  
  393.            (set my_choice (askchoice (prompt #SelectPagesize
  394.                                            info_string ".\n")
  395.                                    (help   def_help @askchoice-help)
  396.                                    (choices #Page4K #Page8K)
  397.                                    (default default_choice))
  398.            )
  399.  
  400.            (select my_choice
  401.             (set sizestr "4K")
  402.             (set sizestr "8K")
  403.            )
  404.  
  405.            (set GUIChoice (askchoice (prompt #SelectGUI)
  406.                                    (help   def_help @askchoice-help)
  407.                                    (choices "MUI" "BGUI")
  408.                                    (default 0))
  409.            )
  410.  
  411.            (select GUIChoice 
  412.             (set GUIName "/VMM_MUI")
  413.             (set GUIName "/VMM_BGUI")
  414.            )
  415.  
  416.            ; copy the new VMM file to the destination directory
  417.            (if copy_icons
  418.               ; then
  419.                 (copyfiles (prompt (#CopyingVMM vmmdest))
  420.                            (help   def_help @copyfiles-help)
  421.                            (optional "oknodelete")
  422.                            (optional "askuser")
  423.                            (source GUIName)
  424.                            (dest     vmmdest)
  425.                            (newname "VMM")
  426.                            (infos)
  427.                            (confirm)
  428.                 )
  429.               ; else
  430.                 (copyfiles (prompt (#CopyingVMM vmmdest))
  431.                            (help   def_help @copyfiles-help)
  432.                            (optional "oknodelete")
  433.                            (optional "askuser")
  434.                            (source GUIName)
  435.                            (dest     vmmdest)
  436.                            (newname "VMM")
  437.                            (confirm)
  438.                 )
  439.            )
  440.  
  441. (if CopyCatalogs    ; then
  442.            ; copy the catalog for VMM
  443.            ; not used in english version, because English is built in
  444.           (copyfiles (prompt #CopyingCat)
  445.                       (help   def_help @copyfiles-help)
  446.                       (optional "oknodelete")
  447.                       (optional "askuser")
  448.                       (source  (cat "/catalogs/" @language "/VMM.catalog"))
  449.                       (dest    (cat "LOCALE:catalogs/" @language))
  450.                       (confirm)
  451.           )
  452. )
  453.  
  454.  
  455.            ; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
  456.            (set handler_name (cat "/l/VMM-Handler_" sizestr))
  457.            (copyfiles (prompt #CopyingHandler)
  458.                       (help   def_help @copyfiles-help)
  459.                       (optional "oknodelete")
  460.                       (optional "askuser")
  461.                       (source  handler_name)
  462.                       (dest    "l:")
  463.                       (newname "VMM-Handler")
  464.                       (confirm)
  465.            )
  466.  
  467. (if CopyCatalogs    ; then
  468.            ; copy the catalog for the VMM-handler
  469.            ; not used in english version, because English is built in
  470.           (copyfiles (prompt #CopyingHandlerCat)
  471.                       (help   def_help @copyfiles-help)
  472.                       (optional "oknodelete")
  473.                       (optional "askuser")
  474.                       (source  (cat "/catalogs/" @language "/VMM-Handler.catalog"))
  475.                       (dest    (cat "LOCALE:catalogs/" @language))
  476.                       (confirm)
  477.           )
  478.         )
  479.      )
  480.   )
  481.  
  482.  
  483.     ; ask, if we want to overwrite the old preferences file
  484.     ; default: do overwrite preferences file
  485.     (set overwrite 1)
  486.     (if (exists "envarc:VMM.prefs")
  487.         (if (= 0 (askbool (prompt #OverwritePrefs)
  488.                      (help #OverwritePrefsHelp @askbool-help)
  489.                      (default 0)
  490.                      (choices #Yes #No)))
  491.               (set overwrite 0)
  492.         )
  493.     )
  494.  
  495.     (if overwrite
  496.       (
  497.         ; copy the new preferences file to env: and envarc:
  498.         (copyfiles (prompt (#CopyingPrefs1))
  499.                    (help   def_help @copyfiles-help)
  500.                    (optional "oknodelete")
  501.                    (optional "askuser")
  502.                    (source  "/env/VMM.prefs")
  503.                    (dest    "env:")
  504.                    (confirm)
  505.         )
  506.         (copyfiles (prompt (#CopyingPrefs2))
  507.                    (help   def_help @copyfiles-help)
  508.                    (optional "oknodelete")
  509.                    (optional "askuser")
  510.                    (source  "/env/VMM.prefs")
  511.                    (dest    "envarc:")
  512.                    (confirm)
  513.         )
  514.       )
  515.     ; else
  516.       (if (= 1 (askbool (prompt #ConvertPrefs
  517.                      (help def_help @askbool-help)
  518.                      (default 1)
  519.                      (choices #Yes #No))))
  520.         (run "/tools/ConvVMMCfg")
  521.       )
  522.     )
  523.   )
  524. )
  525.  
  526. ; Copy docs
  527.  
  528. (if copy_docs
  529.     (
  530.       ;get destination directory for "VMM.guide"
  531.       (set doc_dir (tackon vmmdest "doc"))
  532.  
  533.       (if (AND (= 0 @user-level) (NOT (exists doc_dir)))
  534.           ; then
  535.           (makedir doc_dir (infos))
  536.       )
  537.  
  538.       (set vmmdocs
  539.            (askdir (prompt #DocDir)
  540.                    (help   #DocDirHelp def_help @askdir-help)
  541.                    (default doc_dir)
  542.                    (newpath)
  543.                    (disk)
  544.            )
  545.       )
  546.  
  547.       (if copy_dev
  548.         (if copy_icons
  549.            ; then
  550.            (copyfiles (prompt (#CopyingDocs))
  551.                       (help   def_help @copyfiles-help)
  552.                       (optional "oknodelete")
  553.                       (optional "askuser")
  554.                       (source  DocSrcDir)
  555.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  556.                       (dest    vmmdocs)
  557.                       (infos)
  558.                       (confirm)
  559.            )
  560.            ; else
  561.            (copyfiles (prompt (#CopyingDocs))
  562.                       (help   def_help @copyfiles-help)
  563.                       (optional "oknodelete")
  564.                       (optional "askuser")
  565.                       (source  DocSrcDir)
  566.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  567.                       (dest    vmmdocs)
  568.                       (confirm)
  569.            )
  570.         )
  571.       ; else
  572.         (if copy_icons
  573.             ; then
  574.               (copyfiles (prompt (#CopyingGuide vmmdocs "."))
  575.                          (help   def_help @copyfiles-help)
  576.                          (optional "oknodelete")
  577.                          (optional "askuser")
  578.                          (source  DocSrcDir)
  579.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  580.                          (dest    vmmdocs)
  581.                          (infos)
  582.                          (confirm)
  583.               )
  584.             ; else
  585.               (copyfiles (prompt (#CopyingGuide vmmdocs "."))
  586.                          (help   def_help @copyfiles-help)
  587.                          (optional "oknodelete")
  588.                          (optional "askuser")
  589.                          (source  DocSrcDir)
  590.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  591.                          (dest    vmmdocs)
  592.                          (confirm)
  593.               )
  594.         )
  595.       )
  596.     )
  597. )
  598.  
  599. ; Copy developer files
  600.  
  601. (if copy_dev
  602.     (
  603.       (copylib (prompt (#CopyingLibrary))
  604.                (help   def_help @copyfiles-help)
  605.                (optional "oknodelete")
  606.                (optional "askuser")
  607.                (source  "/Developer/libs/VMM.library")
  608.                (dest    "libs:")
  609.                (confirm)
  610.       )
  611.  
  612.       (if (exists ("fd:") (noreq))
  613.           ; then
  614.             (set fd_dir "fd:")
  615.           ; else
  616.             (set fd_dir
  617.                  (askdir (prompt #SelectFDDir)
  618.                          (help   def_help  @askdir-help)
  619.                          (default "SYS:")
  620.                          (disk)
  621.                  )
  622.             )
  623.       )
  624.  
  625.       (if (exists ("include:") (noreq))
  626.           ; then
  627.             (set inc_dir "include:")
  628.           ; else
  629.             (set inc_dir 
  630.                  (askdir (prompt #SelectIncludeDir)
  631.                          (help   def_help  @askdir-help)
  632.                          (default "SYS:")
  633.                          (disk)
  634.                  )
  635.             )
  636.       )
  637.  
  638.       (if (exists ("lib:") (noreq))
  639.           ; then
  640.             (set lib_dir "lib:")
  641.           ; else
  642.             (set lib_dir
  643.                  (askdir (prompt #SelectLibDir)
  644.                          (help   def_help  @askdir-help)
  645.                          (default "SYS:")
  646.                          (disk)
  647.                  )
  648.             )
  649.       )
  650.  
  651.  
  652.       (copyfiles (prompt (#CopyingFD fd_dir "."))
  653.                  (help   def_help @copyfiles-help)
  654.                  (optional "oknodelete")
  655.                  (optional "askuser")
  656.                  (source  "/Developer/fd")
  657.                  (choices "VMM_lib.fd")
  658.                  (dest    fd_dir)
  659.                  (confirm)
  660.       )
  661.  
  662.       (copyfiles (prompt (#CopyingInclude inc_dir "."))
  663.                  (help   def_help @copyfiles-help)
  664.                  (optional "oknodelete")
  665.                  (optional "askuser")
  666.                  (source  "/Developer/include")
  667.                  (choices "VMM_Stat.h")
  668.                  (dest    inc_dir)
  669.                  (confirm)
  670.       )
  671.  
  672.       (copyfiles (prompt (#CopyingLib lib_dir "."))
  673.                  (help   def_help @copyfiles-help)
  674.                  (optional "oknodelete")
  675.                  (optional "askuser")
  676.                  (source  "/Developer/lib")
  677.                  (choices "VMM_lib.lib")
  678.                  (dest    lib_dir)
  679.                  (confirm)
  680.       )
  681.     )
  682. )
  683.  
  684. ; Copy tools
  685.  
  686. (if copy_tools
  687.   (
  688.   if copy_icons
  689.     ; then
  690.       (copyfiles (prompt (#CopyingTools vmmdest "."))
  691.                  (help   def_help @copyfiles-help)
  692.                  (optional "oknodelete")
  693.                  (optional "askuser")
  694.                  (source  "/tools")
  695.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  696.                  (dest    vmmdest)
  697.                  (infos)
  698.                  (confirm)
  699.       )
  700.     ; else
  701.       (copyfiles (prompt (#CopyingTools vmmdest "."))
  702.                  (help   def_help @copyfiles-help)
  703.                  (optional "oknodelete")
  704.                  (optional "askuser")
  705.                  (source  "/tools")
  706.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  707.                  (dest    vmmdest)
  708.                  (confirm)
  709.       )
  710.   )
  711. )
  712.  
  713. ;
  714.  
  715. ; Copy ARexx scripts
  716.  
  717. (if copy_rexx
  718.   (copyfiles (prompt (#CopyingRexx))
  719.              (help   def_help @copyfiles-help)
  720.              (optional "oknodelete")
  721.              (optional "askuser")
  722.              (source  "/rexx")
  723.              (choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
  724.              (dest    "REXX:")
  725.              (confirm)
  726.   )
  727. )
  728.